home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / perl / trust.pl < prev   
Text File  |  1995-04-10  |  3KB  |  131 lines
  1. #
  2. # update_trust - maintain trust statistics
  3. #
  4. # Output to: 
  5. #
  6. # $total_trusted_count{host} number of non-ANY trust relationships
  7. # $total_trusted_names{host} names of trusted hosts
  8. #
  9. # $total_trustee_count{host} number of non-ANY trust relationships
  10. # $total_trustee_names{host} names of trustee hosts
  11. #
  12. # $trust_host_type{trusted trustee}{type} all facts about this relationship.
  13. # $trust_type_host{type}{trusted trustee} all facts about this relationship.
  14. # 
  15.  
  16. $trust_files = "rules/trust";
  17. $trust_other = "other";
  18.  
  19. sub build_update_trust {
  20.     local($files) = @_;
  21.     local($code, $type);
  22.  
  23.     $code = '
  24. sub update_trust {
  25.     local($td_host, $te_host);
  26.     ($td_host = $trusted) =~ s/(.*@)?(.*)/$2/;
  27.     ($te_host = $trustee) =~ s/(.*@)?(.*)/$2/;
  28.  
  29.     return 
  30.     if $td_host eq "" || $te_host eq ""
  31.     || $td_host eq "ANY" || $td_host eq $te_host;
  32.  
  33.     if (!exists($trust_host_type{"$td_host $te_host"})) {
  34.     $total_trustee_names{$td_host} .= "$te_host ";
  35.     $total_trustee_count{$td_host}++;
  36.     $total_trusted_names{$te_host} .= "$td_host ";
  37.     $total_trusted_count{$te_host}++;
  38.     }
  39. ';
  40.  
  41.     foreach $file (split(/\s+/, $files)) {
  42.     open(RULES, $file) || die "cannot open $file: $!";
  43.     while (<RULES>) {
  44.         chop;
  45.         while (/\\$/) {
  46.         chop;
  47.         $_ .= <RULES>;
  48.         chop;
  49.         }
  50.         s/#.*$//;
  51.         s/\s+$//;
  52.         next if /^$/;
  53.         s/@/\\@/g;
  54.         ($cond, $type) = split(/\t+/, $_, 2);
  55.         die "missing trust type" if $type eq "";
  56.         $code .= "\
  57.     if ($cond) {
  58.     \$trust_host_type{\"\$td_host \$te_host\"}{\"$type\"} .= \$_ . \"\\n\";
  59.     \$trust_type_host{\"$type\"}{\"\$td_host \$te_host\"} .= \$_ . \"\\n\";
  60.     return;
  61.     }\
  62. ";
  63.     }
  64.     close(RULES);
  65.     }
  66.     $code .= "\
  67.     \$trust_host_type{\"\$trustee \$trusted\"}{\"other\"} .= \$_ . \"\\n\";
  68.     \$trust_type_host{\"other\"}{\"\$trustee \$trusted\"} .= \$_ . \"\\n\";
  69. }\n";
  70.     return $code;
  71. }
  72.  
  73. #
  74. # Reset all trust information tables.
  75. #
  76. sub clear_trust_info {
  77.     %total_trust_pair = ();
  78.     %total_trustee_names = ();
  79.     %total_trustee_count = ();
  80.     %total_trusted_names = ();
  81.     %total_trusted_count = ();
  82.     %trust_host_type = ();
  83. }
  84.  
  85. #
  86. # Some scaffolding for stand-alone operation
  87. #
  88. if ($running_under_satan) {
  89.     eval &build_update_trust($trust_files);
  90.     die "error in $trust_files: $@" if $@;
  91. } else {
  92.     $running_under_satan = -1;
  93.     $debug = 1;
  94.  
  95.     require 'perl/misc.pl';
  96.  
  97.     #
  98.     # Generate code from rules files.
  99.     #
  100.     $code = &build_update_trust($trust_files);
  101.     print "Code generated from $trust_files:\n\n";
  102.     print $code;
  103.     eval $code; 
  104.     die "error in $trust_files: $@" if $@;
  105.  
  106.     #
  107.     # Apply rules.
  108.     #
  109.     print "\nApplying rules to all SATAN records...\n";
  110.     while (<>) {
  111.         chop;
  112.         if (&satan_split($_) == 0) {
  113.             &update_trust($_);
  114.         }
  115.     }
  116.  
  117.     print "Trusted Trustee Type...\n";
  118.     for $pair (sort keys %trust_host_type) {
  119.     print $pair,' ',sort(join(' ', keys %{$trust_host_type{$pair}})),"\n";
  120.     }
  121.  
  122.     print "\nType Trusted Trustee...\n";
  123.     for $type (sort keys %trust_type_host) {
  124.     for $pair (sort keys %{$trust_type_host{$type}}) {
  125.         print "$type $pair\n";
  126.     }
  127.     }
  128. }
  129.  
  130. 1;
  131.